home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / csrscl.z / csrscl
Encoding:
Text File  |  1998-10-30  |  1.5 KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSRRRRSSSSCCCCLLLL((((3333FFFF))))                                                          CCCCSSSSRRRRSSSSCCCCLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSRSCL - multiplie an n-element complex vector x by the real scalar 1/a
  10.  
  11. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      SUBROUTINE CSRSCL( N, SA, SX, INCX )
  13.  
  14.          INTEGER        INCX, N
  15.  
  16.          REAL           SA
  17.  
  18.          COMPLEX        SX( * )
  19.  
  20. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  21.      CSRSCL multiplies an n-element complex vector x by the real scalar 1/a.
  22.      This is done without overflow or underflow as long as the final result
  23.      x/a does not overflow or underflow.
  24.  
  25.  
  26. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  27.      N       (input) INTEGER
  28.              The number of components of the vector x.
  29.  
  30.      SA      (input) REAL
  31.              The scalar a which is used to divide each component of x.  SA
  32.              must be >= 0, or the subroutine will divide by zero.
  33.  
  34.      SX      (input/output) COMPLEX array, dimension
  35.              (1+(N-1)*abs(INCX)) The n-element vector x.
  36.  
  37.      INCX    (input) INTEGER
  38.              The increment between successive values of the vector SX.  > 0:
  39.              SX(1) = X(1) and SX(1+(i-1)*INCX) = x(i),     1< i<= n
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.